home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok33.lha / Ersatzquelle / Version.mod < prev    next >
Text File  |  1993-08-15  |  7KB  |  131 lines
  1. (**********************************************************************
  2.  
  3.     :Program.       Version.mod
  4.     :Author.        Gary Struhlik
  5.     :shortcut.      [gs]
  6.     :Version.       1.0
  7.     :Date.          09.10.89
  8.     :Copyright.  Public Domain
  9.     :Language.      Modula-II
  10.     :Translator. M2Amiga AMSoft V3.2d
  11.     :Contents.   Erzeugt kleine Grafik mit Versionsnummer und Name 
  12.     :Contents.   des Autors
  13.   
  14. **********************************************************************)
  15.  
  16. IMPLEMENTATION MODULE Version;
  17.  
  18. FROM SYSTEM IMPORT      WORD;
  19.  
  20. FROM Heap IMPORT        AllocMem;
  21.  
  22. BEGIN 
  23.  
  24. AllocMem(ImgPtr,SIZE(ImgPtr^),TRUE);
  25.  
  26. Imgwidth :=112;
  27. Imgheight:= 23;
  28. Imgdepth :=  2;
  29.  
  30. WITH ImgPtr^ DO         (* Grafik-Daten *)
  31.  
  32.   (* Plane 1 *)
  33.  Dat[  0]:=00000H; Dat[  1]:=00000H; Dat[  2]:=00000H; Dat[  3]:=00000H;
  34.  Dat[  4]:=00000H; Dat[  5]:=00000H; Dat[  6]:=00000H;(* 1*)
  35.  Dat[  7]:=03800H; Dat[  8]:=04000H; Dat[  9]:=0000EH; Dat[ 10]:=001E2H;
  36.  Dat[ 11]:=00000H; Dat[ 12]:=06070H; Dat[ 13]:=02300H;(* 2*)
  37.  Dat[ 14]:=00800H; Dat[ 15]:=04000H; Dat[ 16]:=00011H; Dat[ 17]:=00222H;
  38.  Dat[ 18]:=00000H; Dat[ 19]:=02010H; Dat[ 20]:=00100H;(* 3*)
  39.  Dat[ 21]:=014CCH; Dat[ 22]:=0F8E2H; Dat[ 23]:=0E011H; Dat[ 24]:=00207H;
  40.  Dat[ 25]:=0CBB3H; Dat[ 26]:=02C10H; Dat[ 27]:=0E130H;(* 4*)
  41.  Dat[ 28]:=01444H; Dat[ 29]:=04111H; Dat[ 30]:=00110H; Dat[ 31]:=00382H;
  42.  Dat[ 32]:=00411H; Dat[ 33]:=03210H; Dat[ 34]:=02140H;(* 5*)
  43.  Dat[ 35]:=03E44H; Dat[ 36]:=04111H; Dat[ 37]:=00013H; Dat[ 38]:=000E2H;
  44.  Dat[ 39]:=00411H; Dat[ 40]:=02210H; Dat[ 41]:=02180H;(* 6*)
  45.  Dat[ 42]:=02244H; Dat[ 43]:=04111H; Dat[ 44]:=00011H; Dat[ 45]:=00022H;
  46.  Dat[ 46]:=00411H; Dat[ 47]:=02210H; Dat[ 48]:=02140H;(* 7*)
  47.  Dat[ 49]:=02244H; Dat[ 50]:=04511H; Dat[ 51]:=00011H; Dat[ 52]:=00222H;
  48.  Dat[ 53]:=02411H; Dat[ 54]:=02210H; Dat[ 55]:=02120H;(* 8*)
  49.  Dat[ 56]:=0773AH; Dat[ 57]:=038E3H; Dat[ 58]:=0C10EH; Dat[ 59]:=013C1H;
  50.  Dat[ 60]:=0CF0EH; Dat[ 61]:=0F77EH; Dat[ 62]:=0FB18H;(* 9*)
  51.  Dat[ 63]:=00000H; Dat[ 64]:=00000H; Dat[ 65]:=00000H; Dat[ 66]:=00000H;
  52.  Dat[ 67]:=00000H; Dat[ 68]:=00000H; Dat[ 69]:=00000H;(*10*)
  53.  Dat[ 70]:=00000H; Dat[ 71]:=00000H; Dat[ 72]:=00000H; Dat[ 73]:=00000H;
  54.  Dat[ 74]:=00000H; Dat[ 75]:=00000H; Dat[ 76]:=00000H;(*11*)
  55.  Dat[ 77]:=0FFFFH; Dat[ 78]:=0FFFFH; Dat[ 79]:=0FFFFH; Dat[ 80]:=0FFFFH;
  56.  Dat[ 81]:=0FFFFH; Dat[ 82]:=0FFFFH; Dat[ 83]:=0FFFEH;(*12*)
  57.  Dat[ 84]:=00000H; Dat[ 85]:=00000H; Dat[ 86]:=00000H; Dat[ 87]:=00000H;
  58.  Dat[ 88]:=00000H; Dat[ 89]:=00000H; Dat[ 90]:=00000H;(*13*)
  59.  Dat[ 91]:=00000H; Dat[ 92]:=00000H; Dat[ 93]:=00000H; Dat[ 94]:=00000H;
  60.  Dat[ 95]:=00000H; Dat[ 96]:=00000H; Dat[ 97]:=00000H;(*14*)
  61.  Dat[ 98]:=00838H; Dat[ 99]:=070E0H; Dat[100]:=0001FH; Dat[101]:=03E00H;
  62.  Dat[102]:=003B8H; Dat[103]:=00100H; Dat[104]:=00E00H;(*15*)
  63.  Dat[105]:=03844H; Dat[106]:=08910H; Dat[107]:=00009H; Dat[108]:=09100H;
  64.  Dat[109]:=00110H; Dat[110]:=00700H; Dat[111]:=01100H;(*16*)
  65.  Dat[112]:=00844H; Dat[113]:=08910H; Dat[114]:=00008H; Dat[115]:=09100H;
  66.  Dat[116]:=00110H; Dat[117]:=00100H; Dat[118]:=01100H;(*17*)
  67.  Dat[119]:=00844H; Dat[120]:=07110H; Dat[121]:=00009H; Dat[122]:=09100H;
  68.  Dat[123]:=001B0H; Dat[124]:=00100H; Dat[125]:=01100H;(*18*)
  69.  Dat[126]:=0083CH; Dat[127]:=088F0H; Dat[128]:=0000FH; Dat[129]:=01100H;
  70.  Dat[130]:=000A0H; Dat[131]:=00100H; Dat[132]:=01100H;(*19*)
  71.  Dat[133]:=00804H; Dat[134]:=08810H; Dat[135]:=00008H; Dat[136]:=01100H;
  72.  Dat[137]:=000A0H; Dat[138]:=00100H; Dat[139]:=01100H;(*20*)
  73.  Dat[140]:=00808H; Dat[141]:=08820H; Dat[142]:=00008H; Dat[143]:=01100H;
  74.  Dat[144]:=000E0H; Dat[145]:=00100H; Dat[146]:=01100H;(*21*)
  75.  Dat[147]:=03E70H; Dat[148]:=071C0H; Dat[149]:=0001EH; Dat[150]:=03E00H;
  76.  Dat[151]:=00040H; Dat[152]:=007C4H; Dat[153]:=00E00H;(*22*)
  77.  Dat[154]:=00000H; Dat[155]:=00000H; Dat[156]:=00000H; Dat[157]:=00000H;
  78.  Dat[158]:=00000H; Dat[159]:=00000H; Dat[160]:=00000H;(*23*)
  79.  
  80.   (* Plane 2 *)
  81.  Dat[161]:=00000H; Dat[162]:=00000H; Dat[163]:=00000H; Dat[164]:=00000H;
  82.  Dat[165]:=00000H; Dat[166]:=00000H; Dat[167]:=00000H;(* 1*)
  83.  Dat[168]:=00000H; Dat[169]:=00000H; Dat[170]:=00000H; Dat[171]:=00000H;
  84.  Dat[172]:=00000H; Dat[173]:=00000H; Dat[174]:=00000H;(* 2*)
  85.  Dat[175]:=00000H; Dat[176]:=00000H; Dat[177]:=00000H; Dat[178]:=00000H;
  86.  Dat[179]:=00000H; Dat[180]:=00000H; Dat[181]:=00000H;(* 3*)
  87.  Dat[182]:=00000H; Dat[183]:=00000H; Dat[184]:=00000H; Dat[185]:=00000H;
  88.  Dat[186]:=00000H; Dat[187]:=00000H; Dat[188]:=00000H;(* 4*)
  89.  Dat[189]:=00000H; Dat[190]:=00000H; Dat[191]:=00000H; Dat[192]:=00000H;
  90.  Dat[193]:=00000H; Dat[194]:=00000H; Dat[195]:=00000H;(* 5*)
  91.  Dat[196]:=00000H; Dat[197]:=00000H; Dat[198]:=00000H; Dat[199]:=00000H;
  92.  Dat[200]:=00000H; Dat[201]:=00000H; Dat[202]:=00000H;(* 6*)
  93.  Dat[203]:=00000H; Dat[204]:=00000H; Dat[205]:=00000H; Dat[206]:=00000H;
  94.  Dat[207]:=00000H; Dat[208]:=00000H; Dat[209]:=00000H;(* 7*)
  95.  Dat[210]:=00000H; Dat[211]:=00000H; Dat[212]:=00000H; Dat[213]:=00000H;
  96.  Dat[214]:=00000H; Dat[215]:=00000H; Dat[216]:=00000H;(* 8*)
  97.  Dat[217]:=00000H; Dat[218]:=00000H; Dat[219]:=00000H; Dat[220]:=00000H;
  98.  Dat[221]:=00000H; Dat[222]:=00000H; Dat[223]:=00000H;(* 9*)
  99.  Dat[224]:=00000H; Dat[225]:=00000H; Dat[226]:=00000H; Dat[227]:=00000H;
  100.  Dat[228]:=00000H; Dat[229]:=00000H; Dat[230]:=00000H;(*10*)
  101.  Dat[231]:=00000H; Dat[232]:=00000H; Dat[233]:=00000H; Dat[234]:=00000H;
  102.  Dat[235]:=00000H; Dat[236]:=00000H; Dat[237]:=00000H;(*11*)
  103.  Dat[238]:=00000H; Dat[239]:=00000H; Dat[240]:=00000H; Dat[241]:=00000H;
  104.  Dat[242]:=00000H; Dat[243]:=00000H; Dat[244]:=00000H;(*12*)
  105.  Dat[245]:=00000H; Dat[246]:=00000H; Dat[247]:=00000H; Dat[248]:=00000H;
  106.  Dat[249]:=00000H; Dat[250]:=00000H; Dat[251]:=00000H;(*13*)
  107.  Dat[252]:=00000H; Dat[253]:=00000H; Dat[254]:=00000H; Dat[255]:=00000H;
  108.  Dat[256]:=00000H; Dat[257]:=00000H; Dat[258]:=00000H;(*14*)
  109.  Dat[259]:=00000H; Dat[260]:=00000H; Dat[261]:=00000H; Dat[262]:=00000H;
  110.  Dat[263]:=00000H; Dat[264]:=00000H; Dat[265]:=00000H;(*15*)
  111.  Dat[266]:=00000H; Dat[267]:=00000H; Dat[268]:=00000H; Dat[269]:=00000H;
  112.  Dat[270]:=00000H; Dat[271]:=00000H; Dat[272]:=00000H;(*16*)
  113.  Dat[273]:=00000H; Dat[274]:=00000H; Dat[275]:=00000H; Dat[276]:=00000H;
  114.  Dat[277]:=00000H; Dat[278]:=00000H; Dat[279]:=00000H;(*17*)
  115.  Dat[280]:=00000H; Dat[281]:=00000H; Dat[282]:=00000H; Dat[283]:=00000H;
  116.  Dat[284]:=00000H; Dat[285]:=00000H; Dat[286]:=00000H;(*18*)
  117.  Dat[287]:=00000H; Dat[288]:=00000H; Dat[289]:=00000H; Dat[290]:=00000H;
  118.  Dat[291]:=00000H; Dat[292]:=00000H; Dat[293]:=00000H;(*19*)
  119.  Dat[294]:=00000H; Dat[295]:=00000H; Dat[296]:=00000H; Dat[297]:=00000H;
  120.  Dat[298]:=00000H; Dat[299]:=00000H; Dat[300]:=00000H;(*20*)
  121.  Dat[301]:=00000H; Dat[302]:=00000H; Dat[303]:=00000H; Dat[304]:=00000H;
  122.  Dat[305]:=00000H; Dat[306]:=00000H; Dat[307]:=00000H;(*21*)
  123.  Dat[308]:=00000H; Dat[309]:=00000H; Dat[310]:=00000H; Dat[311]:=00000H;
  124.  Dat[312]:=00000H; Dat[313]:=00000H; Dat[314]:=00000H;(*22*)
  125.  Dat[315]:=00000H; Dat[316]:=00000H; Dat[317]:=00000H; Dat[318]:=00000H;
  126.  Dat[319]:=00000H; Dat[320]:=00000H; Dat[321]:=00000H;(*23*)
  127.  
  128. END; 
  129. END Version.
  130.  
  131.